home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir26
/
medinfo1.zip
/
MEDFO.BAS
< prev
next >
Wrap
BASIC Source File
|
1994-05-19
|
63KB
|
1,914 lines
SCREEN 9
DRAW "BM 140,60"
DRAW "C2 D200 R380 U200 L380"
PAINT STEP(-1, -1), 9, 2
LOCATE 7, 32
PRINT "THE FOLLOWING MEDICAL"
LOCATE 9, 27
PRINT "INFORMATION HAS BEEN OBTAINED"
LOCATE 11, 22
PRINT "FROM TABER'S CYCLOPEDIC MEDICAL DICTONARY"
LOCATE 13, 19
PRINT "A.M.A. MEDICAL GUIDE, PHYSICIANS DRUG HANDBOOK"
LOCATE 16, 28
PRINT "FOR REFERENCE PURPOSES ONLY!"
LOCATE 18, 20
PRINT "DAROLD HEAPE WICHITA, KANSAS"
DELAY 4
MMENU:
CLS
SCREEN 9
COLOR 15
DRAW "BM 120, 50"
DRAW "C3 D235 R410 U235 L410 "
PAINT STEP(-1, -1), 9, 3
LOCATE 3, 35
PRINT " Main Menu "
LOCATE 7, 18
PRINT "(1) = General Drug Categories."
LOCATE 9, 20
PRINT "(2) = Medical Abbreviations."
LOCATE 11, 22
PRINT "(3) = Medical Suffixes / Prefixes."
LOCATE 13, 24
PRINT "(4) = CPR / Diabetic info / Lab tests"
LOCATE 15, 26
PRINT "(5) = Drug Therapeutic Classifications"
LOCATE 17, 28
PRINT "(6) = Medical Hot Line Numbers"
LOCATE 19, 30
PRINT "(7)= Quit"
LOCATE 23, 32
INPUT " Your request is"; req
SELECT CASE (req)
CASE 9 TO 1000
CLS
SCREEN 0
LOCATE 10, 6
PRINT "You entered an incorrect number!"
COLOR 0, 0
DELAY 2
GOTO MMENU
CASE (1)
CALL MEDCAT
CASE (2)
CALL ABBRE
CASE (3)
CALL SUFF
CASE (4)
CALL CPR
CASE (5)
CALL THERCAT
CASE (6)
CALL PHONE
CASE (7)
CLS
SCREEN 0
COLOR 11, 0
LOCATE 6, 36
PRINT "THANK YOU"
LOCATE 10, 28
PRINT "For supporting shareware"
LOCATE 14, 34
PRINT "DAROLD HEAPE"
DELAY 3
END SELECT
END
SUB ABBRE
MENU:
CLS
SCREEN 9
COLOR 4
DRAW "BM 160, 36"
DRAW "C1 D250 R340 U250 L340 BR5 BD5 D240 R330 U240 L330"
PAINT STEP(-1, -1), 11, 1
LOCATE 2, 25
PRINT " Abbrevations and Meanings Menu "
LOCATE 5, 22
PRINT "(1)= A - bid (6)= Le - Ht"
LOCATE 7, 22
PRINT "(2)= Bil - Co (7)= N&V - Px"
LOCATE 9, 22
PRINT "(3)= Cp - Ei (8)= Q - Sc"
LOCATE 11, 22
PRINT "(4)= Ek - Hct (9)= Sca - Te"
LOCATE 13, 22
PRINT "(5)= Hg - Ld (10)= Th - z"
LOCATE 16, 32
PRINT "(20)=Quit to main menu"
LOCATE 20, 32
INPUT " Your request is"; AA
SELECT CASE (AA)
CASE 11 TO 19
CLS
SCREEN 1
LOCATE 10, 8
PRINT "YOU ENTERED A WRONG NUMBER!"
DELAY 2
GOTO MENU
CASE 21 TO 1000
CLS
SCREEN 1
LOCATE 10, 8
PRINT "YOU ENTERED A WRONG NUMBER!"
DELAY 2
GOTO MENU
CASE (20)
GOTO MMENU
CASE (1)
CLS
SCREEN 9
CALL BBOX
LOCATE 3, 4
PRINT "Ab = antibody AB = abnormal"
LOCATE 4, 4
PRINT "ABC = aspiration, biopsy, cytology A/B = acid-base ratio"
LOCATE 5, 4
PRINT "ABG = arterial blood gas ABP = arterial blood pressure"
LOCATE 6, 4
PRINT "AC = before meals ACVD = acute cardiovascular disease"
LOCATE 7, 4
PRINT "ADL = activities of daily living ad lib = as desired"
LOCATE 8, 4
PRINT "ADT = admission,discharge,transfer AFB = acid-fast bacilli"
LOCATE 9, 4
PRINT "AFP = alpha-fetoprotein AgNO3 = silver nitrate"
LOCATE 10, 4
PRINT "Ag = antigen AI = aortic insufficiency"
LOCATE 11, 4
PRINT "ALG = antilymphocytic golbulin ALP = alkaline phosphatase"
LOCATE 12, 4
PRINT "alt noct = alternate nights alb = albumin"
LOCATE 13, 4
PRINT "AMA = against medical advice AMI = acute myocardial infarction"; ""
LOCATE 14, 4
PRINT "amp = ampule AMS = amylase"
LOCATE 15, 4
PRINT "ANA = antinuclear antibodies ANS = autonomic nervous system"; ""
LOCATE 16, 4
PRINT "ant = anterior aq = aqueous"
LOCATE 17, 4
PRINT "ARC = AIDS-related complex ARD = acute respiratory disease "; ""
LOCATE 18, 4
PRINT "ARF = acute respiratory failure AS = left ear"
LOCATE 19, 4
PRINT "ASAP = as soon as possible ASD = atrial septal disease"
LOCATE 20, 4
PRINT "Au = gold AU = both ears"
LOCATE 21, 4
PRINT "BaE = barium enema BAO = basal acid output"
LOCATE 22, 4
PRINT "BBT = basal body temperature BCC = basal cell carcinoma"
LOCATE 23, 4
PRINT "BFP = biological false positive bid = twice a day"
DELAY 10
GOTO MENU
CASE 2
CLS
SCREEN 9
COLOR 4
DRAW "BM 10, 10"
DRAW "C1 D310 R610 U310 L610 BR5 BD5 D300 R600 U300 L600"
PAINT STEP(-1, -1), 11, 1
LOCATE 3, 4
PRINT " bil = bilateral bin = twice a night"
LOCATE 4, 4
PRINT " Bld = blood BMR = basal metabolic rate"
LOCATE 5, 4
PRINT " BMT = barium meal test BOM = bilateral otitis media"
LOCATE 6, 4
PRINT " BSP = bromsulphalein BUN = blood urea nitrogen"
LOCATE 7, 4
PRINT " BV = blood volume Bx = biopsy"
LOCATE 8, 4
PRINT "c = with CA = calcium, cancer"
LOCATE 9, 4
PRINT "CAB = coronary artery bypass CBC = complete blood count"
LOCATE 10, 4
PRINT "CBF = cerebral brain syndrome CBI = continuous bladder irrigation"
LOCATE 11, 4
PRINT "CBR = complete bed rest CBS = chronic brain syndrome"
LOCATE 12, 4
PRINT "cc = cubic centrimeter CCA = circumflex coronary artery"
LOCATE 13, 4
PRINT "CEA = carcinoembryonic antigen CGL = chronic granulomatous leukemia"
LOCATE 14, 4
PRINT "Ch = cholesterol CHD = coronary heart disease"
LOCATE 15, 4
PRINT "CHF = congestive heart failure CHO = carbohydrate"
LOCATE 16, 4
PRINT "CI = coronary insufficiency cib = food"
LOCATE 17, 4
PRINT "CIS = carcinoma in site CK = creatine kinase"
LOCATE 18, 4
PRINT "CLD = chronic liver disease CML = chronic myelocytic leukemia"
LOCATE 19, 4
PRINT "cm = centimeter CNS = central nervous system"
LOCATE 20, 4
PRINT "c/o = complaints of Co = cobalt"
LOCATE 21, 4
PRINT "CO = cardon monoxide CO2 = carbon dioxide"
LOCATE 22, 4
PRINT "COH = carbon hydrate contra = against"
DELAY 10
GOTO MENU
CASE 3
CLS
CALL BBOX
LOCATE 4, 4
PRINT "CPE = cytopathic effect CPK = creatine phosphokinase"
LOCATE 5, 4
PRINT "CR = conditioned reflex CRF = chronic renal failure"
LOCATE 6, 4
PRINT "Cs = cesium C&S = culture and sensitivity"
LOCATE 7, 4
PRINT "D = diopter (lens length) d = day"
LOCATE 8, 4
PRINT "DAT = diet as tolerated db = decibel"
LOCATE 9, 4
PRINT "D&C = dilation & curettage D/C = discontinue"
LOCATE 10, 4
PRINT "DCC = direct current cardioversion DCR = direct cortical response"
LOCATE 11, 4
PRINT "D&E = dilation & evacuation DES = diethyletibestrol"
LOCATE 12, 4
PRINT "DGE = delayed gastric emptying dia = diagnosis"
LOCATE 13, 4
PRINT "diff = differential DIP = distal interphalangeal"
LOCATE 14, 4
PRINT "DJD = degenerative joint disease DNA = deoxyribonucleic acid"
LOCATE 15, 4
PRINT "DOE = dyspnea on exertion DPT = diptheria, pertussis, tetanus"
LOCATE 16, 4
PRINT "DR = digital radiography D/S = dextrose in saline"
LOCATE 17, 5
PRINT "DSD = dry DTs = delirium tremens"
LOCATE 18, 5
PRINT "DVI = digital vascular imaging DW = distilled water"
LOCATE 19, 5
PRINT "D/W = dextrose in water Dx = diagnosis"
LOCATE 20, 5
PRINT "E = enema EBL = estimated blood loss"
LOCATE 21, 5
PRINT "ECG = electrocardiogram ED = effective dose"
LOCATE 22, 5
PRINT "EDG = electrohemodynamics EEG = electroencephalogram"
LOCATE 23, 5
PRINT "EHD = electrohemodynamics EIA = enzyme immunoassay"
DELAY 10
GOTO MENU
CASE 4
CLS
CALL BBOX
LOCATE 4, 5
PRINT "EKG = electrocardiogram EMG = eletronystagmography"
LOCATE 5, 5
PRINT "ENT = ear, nose, throat EOG = electro-oculogram"
LOCATE 6, 5
PRINT "EPO = erythropoietin ERV = expiratory reserve volume"
LOCATE 7, 5
PRINT "ESD = end-systolic dimension ESV = end-systolic volume"
LOCATE 8, 5
PRINT "ET = esotropia et = and"
LOCATE 9, 5
PRINT "F = fahrenheit FB = foreign body "
LOCATE 10, 5
PRINT "FBS = fasting blood sugar Fe = iron"
LOCATE 11, 5
PRINT "FHR = fetal heart rate FHS = fetal heart sounds"
LOCATE 12, 5
PRINT "FHT = fetal heart tones fr = fibrin-fibrinogen related"
LOCATE 13, 5
PRINT "FU = follow-up FX = fracture"
LOCATE 14, 5
PRINT "G = gram ga = gallium"
LOCATE 15, 5
PRINT "G-Cs = glucocorticoids GC= gonorrhea"
LOCATE 16, 5
PRINT "GG = gamma gobulin GH = growth hormone"
LOCATE 17, 5
PRINT "GI = gastrointestinal qm = gram"
LOCATE 18, 5
PRINT "gr = grain GT = glucose tolerance"
LOCATE 19, 5
PRINT "gtt = drops GU = genitourinary"
LOCATE 20, 5
PRINT "h = hour HAV = hepatitis a virus"
LOCATE 21, 5
PRINT "HB = heart block Hb = hemoglobin"
LOCATE 22, 5
PRINT "HBV = hebatitis b virus HCI = hydrochloric acid"
LOCATE 23, 5
PRINT "HCL = hairy cell leukemia hct = hematocrit"
DELAY 10
GOTO MENU
CASE 5
CLS
CALL BBOX
LOCATE 4, 5
PRINT "Hg = mercury HO = hyperbaric oxygen"
LOCATE 5, 5
PRINT "hgb = hemoglobin HPN = hypertension"
LOCATE 6, 5
PRINT "hr = hour hs = at bed time (hour of sleep)"
LOCATE 7, 5
PRINT "HSV = herpes simplex virus H2O = water"
LOCATE 8, 5
PRINT "H2O2= hydrogen Hx = history"
LOCATE 9, 5
PRINT "IBC = iron-binding capacity IBD = inflammatory bowel disease"
LOCATE 10, 5
PRINT "IC = inspiratory capacity ICF = intracellular fluid"
LOCATE 11, 5
PRINT "ICP = intracranial pressure ICS = intercostal space"
LOCATE 12, 5
PRINT "ICU = intensive care unit I&D = incision and drainage"
LOCATE 13, 5
PRINT "I/E = inspiratory expiratory ratio Ig = immunoglobulin"
LOCATE 14, 5
PRINT "IHD = ischemic heart disease IMF = idiopathic mylofibrosis"
LOCATE 15, 5
PRINT "IO = intraocular IS = intercostal space"
LOCATE 16, 5
PRINT "IU = international unit IVD = intevertebral disk"
LOCATE 17, 5
PRINT "IVF = in vitro fertilization IVP = intravenous pyelogram"
LOCATE 18, 5
PRINT "JOD = juvenile-onset diabetes JRA = juvenile rheumatoid arthitis"
LOCATE 19, 5
PRINT "K = potassium KB = ketone bodies"
LOCATE 20, 5
PRINT "KCG = kinetocardiogram KCI = potassium chloride"
LOCATE 21, 5
PRINT "KE = kinetic energy Kg = kilogram"
LOCATE 22, 5
PRINT "L = liter LA = left atrium"
LOCATE 23, 5
PRINT "LBP = low back pain LDL = low-density liprotiens"
DELAY 10
GOTO MENU
CASE 6
CLS
CALL BBOX
LOCATE 4, 5
PRINT "LE = left eye LHF = left sided heart faiure"
LOCATE 5, 5
PRINT "LLL = left lower lobe LLQ = left lower quadrant"
LOCATE 6, 5
PRINT "LOM = loss of motion LPS = lipase"
LOCATE 7, 5
PRINT "LTH = luteotropic hormone LV = left ventricle"
LOCATE 8, 5
PRINT "m= minum mcg = microgram"
LOCATE 9, 5
PRINT "MEq = milliequivalent MFT = muscle function test"
LOCATE 10, 5
PRINT "mg = milligram mgm = milligram"
LOCATE 11, 5
PRINT "mL = milliter mm = millimeter"
LOCATE 12, 5
PRINT "MM = multiple myeloma mon = monocytes"
LOCATE 13, 5
PRINT "MP = metacarpal-phalangeal MSL = midsternal line"
LOCATE 14, 5
PRINT "MTD = right ear drum MTS = left ear drum"
LOCATE 15, 5
PRINT "MTX = methotrexate MVP = mitral valve prolapse"
LOCATE 16, 5
PRINT "Na = sodium NaCi = sodium chloride"
LOCATE 17, 5
PRINT "NBT = nitroblue tetrazoloium N/C = no complaints"
LOCATE 18, 5
PRINT "NGU = nongonococcal urethritis NHL = non-hodgkin's lymphoma"
LOCATE 19, 5
PRINT "NICU = neurological intensive care unit NG = nasogastic"
LOCATE 20, 5
PRINT "noc = night NPN = non protein nitrogen"
LOCATE 21, 5
PRINT "NPO = nothing by mouth NR = no response"
LOCATE 22, 5
PRINT "NSR = normal sinus rhythm NSU = nonspecific urethritis"
LOCATE 23, 5
PRINT "Nt = neutralization NTG = nitroglycerin"
DELAY 10
GOTO MENU
CASE 7
CLS
CALL BBOX
LOCATE 4, 5
PRINT "N&V = nausea & vomiting NVA = near visual acuity"
LOCATE 5, 5
PRINT "obl = odlique OU = each eye"
LOCATE 6, 5
PRINT "OBS = organic brain syndrome obs = obstetrics"
LOCATE 7, 5
PRINT "OCC = occasional OCD = oral cholecystogram"
LOCATE 8, 5
PRINT "OD = overdose od = once a day"
LOCATE 9, 5
PRINT "OM = otitis media OMR = optic mark recognition"
LOCATE 10, 5
PRINT "OPV = oral poliovirus vaccine OS = left eye"
LOCATE 11, 5
PRINT "OU = each eye O2 = oxygen"
LOCATE 12, 5
PRINT "p = after P&A = percussion & auscultion"
LOCATE 13, 5
PRINT "PABA = paraminobenzoic acid PAP = papanicolaou"
LOCATE 14, 5
PRINT "PAT = paroxysmal atrial tracycardia PBI = protein-bound iodine"
LOCATE 15, 5
PRINT "pc = after meals PCT = plasmacrit time"
LOCATE 16, 5
PRINT "PFT = pulmonary function test PID = pelvic inflammatory disease"
LOCATE 17, 5
PRINT "PNS = peripheral nervous system PO = by mouth, orally"
LOCATE 18, 5
PRINT "PP = after meals, post partum PPV = positive pressure ventilation"
LOCATE 19, 5
PRINT "Pr = presbyopia, prism PRA = progressive muscular atrophy"
LOCATE 20, 5
PRINT "PREOP = preoperative PRN = as needed"
LOCATE 21, 5
PRINT "pro-time = prothrombin PSP = phenolsulfonphthalein"
LOCATE 22, 5
PRINT "PTB = patellar tendon bearing PTE = parathyroid extract"
LOCATE 23, 5
PRINT "PWP = pulmonary wedge pressure Px = prognosis"
DELAY 10
GOTO MENU
CASE 8
CLS
CALL BBOX
LOCATE 4, 5
PRINT "q = every qh = every day"
LOCATE 5, 5
PRINT "q2h = every 2 hours qid = 4 times a day"
LOCATE 6, 5
PRINT "qm = every morning qn = every night"
LOCATE 7, 5
PRINT "qns = quanitity not sufficient qod = every other day"
LOCATE 8, 5
PRINT "qoh = every other hour q.q. = each"
LOCATE 9, 5
PRINT "R = rectal, right Ra = radium"
LOCATE 10, 5
PRINT "RAI = radioactive RAS = reticular activating system"
LOCATE 11, 5
PRINT "RBC = red blood count RBE = relative biological effects"
LOCATE 12, 5
PRINT "RCA = right coronaryartery RD = respiratory distress"
LOCATE 13, 5
PRINT "RE = right eye RFS = renal function study"
LOCATE 14, 5
PRINT "RHD= rheumatic heart rate RIA = radioimmunoassay"
LOCATE 15, 5
PRINT "RM = respiratory movement RNA = ribonucleic acid"
LOCATE 16, 5
PRINT "R/O = rule out ROP = right occipitis posterior"
LOCATE 17, 5
PRINT "ROS = review of systems RP = retrograde pyelogram"
LOCATE 18, 5
PRINT "RPF = renal plasma flow RQ = respiratory quotient"
LOCATE 19, 5
PRINT "R&R = rate and rhythm RSR = regular sinus rhythym"
LOCATE 20, 5
PRINT "RSV = respiratory syncytial virus RTA = renal tublar acidosis"
LOCATE 21, 5
PRINT "RUL = right upper lobe RVS = relative valve schedule"
LOCATE 22, 5
PRINT "s = without S-A = sinoatrial"
LOCATE 23, 5
PRINT "SALD = serum aldolase sc = subcutaneous"
DELAY 10
GOTO MENU
CASE 9
CLS
CALL BBOX
LOCATE 4, 5
PRINT "SCA = sickle cell anemia SCD = sudden cardic death"
LOCATE 5, 5
PRINT "seg = segmentation neutrophils semi = half"
LOCATE 6, 5
PRINT "sev = sever, severed s gl = without correction"
LOCATE 7, 5
PRINT "SI = saturation index SLAP = serum leucine aminopeptidase"
LOCATE 8, 5
PRINT "SLPS = serum lipase SM = simple mastectomy"
LOCATE 9, 5
PRINT "sm = small SMR = submucous resection"
LOCATE 10, 5
PRINT "SO = salpingo-oophorectomy SOB = shortness of breath"
LOCATE 11, 5
PRINT "SOM = serous otitis media sos = if necessary"
LOCATE 12, 5
PRINT "sp gr = specific gravity SPK = serum pyruvate kinase"
LOCATE 13, 5
PRINT "Sr = strontium ss = half"
LOCATE 14, 5
PRINT "SSE = soap suds enema STAT = immediately"
LOCATE 15, 5
PRINT "subcu = subcutaneous SUI = stress urinary incontinence"
LOCATE 16, 5
PRINT "SVC = superior vena cava SVG = saphenous vein graft"
LOCATE 17, 5
PRINT "SVN = small volume nebulizer Sx = symptoms"
LOCATE 18, 5
PRINT "T = temperature T3 = triiodothyronine"
LOCATE 19, 5
PRINT "T4 = thyroxine TA = therapeutic abortion"
LOCATE 20, 5
PRINT "tab = tablet TB = tuberculosis"
LOCATE 21, 5
PRINT "TBI = thyroxine-binding index TBW = total body weight"
LOCATE 22, 5
PRINT "Tc = technetium TD = total disability"
LOCATE 23, 5
PRINT "TDT = tone decay test TEN = toxic epidermal necrolysis"
DELAY 10
GOTO MENU
CASE 10
CLS
CALL BBOX
LOCATE 4, 5
PRINT "THR = total hip replacement TIA = transient ischemic attack"
LOCATE 5, 5
PRINT "tid = three times a day TKO = to keep open"
LOCATE 6, 5
PRINT "TKR = total knee replacement TMJ = temporomandibular joint"
LOCATE 7, 5
PRINT "TO = telephone order TPN = total parenteral nutrition"
LOCATE 8, 5
PRINT "TR = tuberculin residue TRBF = total renal blood flow"
LOCATE 9, 5
PRINT "TSD = tay-sachs disease TSP = total serum protien"
LOCATE 10, 5
PRINT "TSS = toxic shock syndrome TT = thrombin time"
LOCATE 11, 5
PRINT "TTH = thyrotropic hormone TUR = transurethral resection"
LOCATE 12, 5
PRINT "U = units UA= urinalysis"
LOCATE 13, 5
PRINT "UCR = unconditional reflex UE = upper extremity"
LOCATE 14, 5
PRINT "UFR = uroflowmeter UGI = upper gastrointestinal"
LOCATE 15, 5
PRINT "UK = unknown UL = upper lobe"
LOCATE 16, 5
PRINT "UP = uroporphyrin UPP = urethral pressure profile"
LOCATE 17, 5
PRINT "ur = urine URD = upper respiratory disease"
LOCATE 18, 5
PRINT "URI = upper respiratory infection US = ultrasonic"
LOCATE 19, 5
PRINT "VEP = visual evoked potential VER = visual evoked response"
LOCATE 20, 5
PRINT "VP = venous pressure VS = vital signs"
LOCATE 21, 5
PRINT "W = water WA = while awake"
LOCATE 22, 5
PRINT "WB = whole blood WBC = white blood count"
DELAY 10
GOTO MENU
END SELECT
END SUB
SUB ABOX
CLS
SCREEN 9
COLOR 15
DRAW "BM 10, 20"
DRAW "C3 D300 R620 U300 L620"
PAINT STEP(-1, -1), 1, 3
END SUB
SUB BBOX
CLS
SCREEN 9
COLOR 4
DRAW "BM 10, 20"
DRAW "C1 D320 R610 U320 L610 BR5 BD5 D310 R600 U310 L600"
PAINT STEP(-1, -1), 11, 1
END SUB
SUB CPR
CMENU:
CLS
SCREEN 9
COLOR 11
DRAW "BM 150, 115"
DRAW "C3 D120 R320 U120 L320"
PAINT STEP(-1, -1), 8, 3
LOCATE 8, 35
PRINT " MENU "
LOCATE 10, 25
PRINT "(1)=CPR / DIABETIC INFORMATION"
LOCATE 12, 25
PRINT "(2)=LAB TESTS AND MEANINGS"
LOCATE 14, 25
PRINT "(3)=LAB VALUES"
LOCATE 16, 25
PRINT "(4)=QUIT TO MAIN MENU"
LOCATE 21, 30
INPUT " Your request is"; CP
SELECT CASE (CP)
CASE 5 TO 1000
CLS
SCREEN 1
LOCATE 10, 8
PRINT " YOU ENTERED A WRONG NUMBER!"
DELAY 2
GOTO CMENU
CASE 1
CLS
SCREEN 9
COLOR 11
DRAW "BM 10, 30"
DRAW "C3 D300 R620 U300 L620"
PAINT STEP(-1, -1), 8, 3
LOCATE 4, 4
PRINT "1 PERSON CPR: Check carotid pulse (LOOK, FEEL, LISTEN) Tilt head, give"
LOCATE 5, 7
PRINT "2 breaths 1 to 1 1/2 seconds apart, 15 chest compressions,Count as 1"
LOCATE 6, 7
PRINT "and 2 and 3 etc.. Head tilt and 2 breaths etc."
LOCATE 8, 4
PRINT "2 PERSON CPR: Same as above except 1 breath to 5 chest compressions."
LOCATE 9, 7
PRINT "Check pulse after 10 cycles."
LOCATE 11, 3
PRINT "NORMAL BLOOD PRESSURE IS 140/90 TO 90/60 NORMAL PULSE 60-80 beats/minute"
LOCATE 13, 15
PRINT "PULSE ABOVE 140 MEANS DANGER AND POSSIBLE STROKE"
LOCATE 15, 4
PRINT "HIGH BLOOD PRESSURE: headache, nervousness, pounding pulse."
LOCATE 17, 5
PRINT "SHOCK: Low blood pressure, fast pulse, comfusion, pale clammy skin."
LOCATE 19, 3
PRINT "NORMAL BLOOD SUGAR RANGE is 70-180 miligrams/desliter. If patient has low"
LOCATE 20, 5
PRINT "blood sugar, Watch for nausea, vomiting, shortness of breath, headache,"
LOCATE 21, 5
PRINT "fruity smelling breath, drunkness actions. * Give orange juice"
LOCATE 22, 5
PRINT "to raise blood sugar very quickly and fast peaking. * Give milk with"
LOCATE 23, 5
PRINT "crackers and cheese for slow peaking."
DELAY 10
GOTO CMENU
CASE 2
CLS
SCREEN 9
COLOR 11
DRAW "BM 10, 30"
DRAW "C3 D300 R620 U300 L620"
PAINT STEP(-1, -1), 8, 3
LOCATE 4, 4
PRINT " BUN: BUN is known as blood urea nitrogen, it is one of waste products"
LOCATE 5, 6
PRINT "produced when protien is used by the body. Your BUN level is affected"
LOCATE 6, 6
PRINT "by the amount of protein in your diet. "
LOCATE 8, 4
PRINT "CREATININE: It is another one of the waste products. A sudden elevation"
LOCATE 9, 6
PRINT "of creatinine may indicate muscle wasting or damage, increased muscle"
LOCATE 10, 6
PRINT "mass, or additional loss of remaining kidney function. Your creatine"
LOCATE 11, 6
PRINT "level is usually not effected by your diet"
LOCATE 13, 4
PRINT "ALBUMIN: It is one type of blood protien. Albumin plays a role in"
LOCATE 14, 6
PRINT "maintaining the exchange of fluid between the blood and the body"
LOCATE 15, 6
PRINT "tissues. Low levelsw may be a result of poor protien intake."
LOCATE 17, 4
PRINT "PROTEIN INTAKE: Protien is vital to all living cells helping to"
LOCATE 18, 6
PRINT "build and repair body tissues (including skin, bone, and muscle)"
LOCATE 20, 4
PRINT "POTASSIUM: Is a mineral that maintains normal nerve and muscle"
LOCATE 21, 6
PRINT "function. High or low levels of potassium can cause irregular heart"
LOCATE 22, 6
PRINT "beats or even cause the heart to stop. Your potassium level is"
LOCATE 23, 6
PRINT "affected by your diet."
LOCATE 25, 2
INPUT " Continue (Y/N) "; An$
IF (UCASE$(An$)) = "N" THEN
GOTO CMENU
ELSEIF (UCASE$(An$)) = "Y" THEN
END IF
CLS
SCREEN 9
COLOR 11
DRAW "BM 10, 15"
DRAW "C3 D300 R620 U300 L620"
PAINT STEP(-1, -1), 8, 3
LOCATE 4, 4
PRINT "PHOSPHOROUS/CALCIUM: These two work together to build strong bones. If"
LOCATE 5, 6
PRINT "phosphorous and calcium are not in good balance your bones become"
LOCATE 6, 6
PRINT "fragile and break easily. These levels are affected by your diet and"
LOCATE 7, 6
PRINT "certain medications."
LOCATE 9, 4
PRINT "BLOOD SUGAR: Is glucose and is used by cells of the body to produce energy."
LOCATE 10, 6
PRINT "When this level falls below normal a diet change may be needed."
LOCATE 12, 4
PRINT "FLUID GAINS: High levels can lead to edema (edema in hands or feet), high"
LOCATE 13, 6
PRINT "blood pressure and shortness of breath. Excess fluid removal may cause"
LOCATE 14, 6
PRINT "severe cramping. Eating salty foods and drinking too much fluids directly"
LOCATE 15, 6
PRINT "effect your fluid gains."
LOCATE 17, 4
PRINT "CHOLESTEROL/TRIGLYCERIDES: Cholesterol and triglycerides are fatty"
LOCATE 18, 6
PRINT "substances in the blood. High levels may lead to heart and blood vessel"
LOCATE 19, 6
PRINT "disease. These levels are affected by your diet, heredity and stress."
DELAY 10
GOTO CMENU
CASE 3
CLS
SCREEN 9
COLOR 11
DRAW "BM 10, 30"
DRAW "C3 D300 R620 U300 L620"
PAINT STEP(-1, -1), 8, 3
DRAW "BM 220,80"
DRAW "C3 D200 R140 U200 L140 R240 D200 L100 U200 R100"
LOCATE 2, 35
PRINT "LAB VALUES"
LOCATE 5, 32
PRINT "TEST RANGE"
LOCATE 7, 30
PRINT "ALBUMIN"
LOCATE 7, 47
PRINT "3.5 - 5.0"
LOCATE 9, 30
PRINT "PROTIEN INTAKE"
LOCATE 9, 47
PRINT ".8 - 1.4"
LOCATE 11, 30
PRINT "POTASSIUM"
LOCATE 11, 47
PRINT "3.5 - 6.0"
LOCATE 13, 30
PRINT "PHOSPHORUS"
LOCATE 13, 47
PRINT "3.5 - 6.0"
LOCATE 15, 30
PRINT "CALCIUM"
LOCATE 15, 47
PRINT "8.5 - 11.5"
LOCATE 17, 30
PRINT "BLOOD SUGAR"
LOCATE 17, 47
PRINT "70 - 180"
LOCATE 19, 30
PRINT "FLUID GAINS"
LOCATE 19, 47
PRINT "< 3 KG"
DELAY 10
GOTO CMENU
CASE 4
GOTO MMENU
END SELECT
END SUB
SUB MBOX
CLS
SCREEN 9
COLOR 15
DRAW "BM 12, 26"
DRAW "C3 D300 R620 U300 L620"
PAINT STEP(-1, -1), 11, 3
END SUB
SUB MEDCAT
CALL ABOX
LOCATE 1, 30
PRINT " Med categories "
LOCATE 3, 3
PRINT "ACE INHIBITORS = Drugs that interfere with the action of a substance "
LOCATE 4, 5
PRINT "called angiotensin-converting enzyme and there by blocks one of the"
LOCATE 5, 5
PRINT "stages in a chain of biochemical reactions that controll blood pressure."
LOCATE 7, 3
PRINT "ANTINEOPLASTIC = Prevents the growth of malignant cells used in treatment"
LOCATE 8, 5
PRINT "of cancer, Also called CYTOTOXICS."
LOCATE 10, 3
PRINT "ANTITUSSIVES = A drug that relieves or helps prevent coughing."
LOCATE 12, 3
PRINT "ANTHELMINTICS = A drug that destroys parasitic intestinal worms"
LOCATE 14, 3
PRINT "ANTISPASMODIC = Drugs for reducing spasm of the bowel to relieve the pain"
LOCATE 15, 5
PRINT "in conditions such as irritable colon or diverticular disease."
LOCATE 17, 3
PRINT "ANTIBIOTICS =Natural/synthetic substances that combat bacterial infections."
LOCATE 18, 5
PRINT "broad spectrum antibiotics are effective against a wide range of bacterial"
LOCATE 20, 3
PRINT "ANTILIPEMICS =Drug that counteracts accumulation of fatty tissue in blood."
LOCATE 22, 3
PRINT "ANTIDEPRESSANTS = Prevents or relieves the effects of depression. The most"
LOCATE 25, 2
INPUT " Continue (Y/N) "; An$
IF (UCASE$(An$)) = "N" THEN
GOTO MMENU
ELSEIF (UCASE$(An$)) = "Y" THEN
END IF
CALL ABOX
LOCATE 3, 3
PRINT "ANTIHISTIMINE = A drug that counter acts the effects of histimine. They"
LOCATE 4, 5
PRINT "are the common ingredients in cold remedies."
LOCATE 6, 3
PRINT "ANTIINFLAMMATORY = A drug used to counter act or reduce inflammation -the"
LOCATE 7, 5
PRINT "redness heat, swelling and increased blood flow found in infections and"
LOCATE 8, 5
PRINT "in many chronic noninfective diseases."
LOCATE 10, 3
PRINT "ANTIMETICS = Drugs that are used to treat nausea and vomiting. Certain "
LOCATE 11, 5
PRINT "Antihistamines, antispasmotics are commonly used as antimetics."
LOCATE 13, 3
PRINT "ANTIVIRAL = A drug that treats viral infections or to provide temporary"
LOCATE 14, 5
PRINT "protection against infections such as influenza."
LOCATE 16, 3
PRINT "ANALGESICS = Drug that relieves pain. Main types are nonnarcotic and for"
LOCATE 17, 5
PRINT "mild pain and narcotic (opium based) for severe pain."
LOCATE 19, 3
PRINT "ANTIACIDS = Drugs that relieve indigestion and heart burn by neutralizing"
LOCATE 20, 5
PRINT "the effects of the stomachs acid."
LOCATE 25, 2
INPUT " Continue (Y/N) "; An$
IF (UCASE$(An$)) = "N" THEN
GOTO MMENU
ELSEIF (UCASE$(An$)) = "Y" THEN
END IF
CALL ABOX
LOCATE 3, 3
PRINT "ANTIARRHYTHMICS = Drugs that are used to control irregularities of the"
LOCATE 4, 5
PRINT "heart beat. "
LOCATE 6, 3
PRINT "ANTITIVIRALS = Drugs that are used to treat viral infections or to"
LOCATE 7, 5
PRINT "provide temporary protection against infections such as influenza."
LOCATE 9, 3
PRINT "BARBITURATES = A group of drugs made from organic compounds derived from"
LOCATE 10, 5
PRINT "barbituric acid. They depress the C.N.S., respiration, lowering blood"
LOCATE 11, 5
PRINT "pressure. Replaced by Benzodiazepine's. "
LOCATE 13, 3
PRINT "BENZODIAZEPINES =Drugs that are chemically similar to psychotropic drugs"
LOCATE 14, 5
PRINT "with potental hypnotic and sedative action. Used predomantly for"
LOCATE 15, 5
PRINT "antianxiety and sleep induction. "
LOCATE 17, 3
PRINT "BRONCHODILATORS = Drugs that open up the bronchial tubes when the tubes"
LOCATE 18, 5
PRINT "become narrowed by muscle spasm. "
LOCATE 20, 3
PRINT "BETA BLOCKERS = Drugs that reduce the oxygen needs of the heart by"
LOCATE 21, 5
PRINT "reducing the heart beat rate. They are used as Antihypertensives"
LOCATE 25, 2
INPUT " Continue (Y/N) "; An$
IF (UCASE$(An$)) = "N" THEN
GOTO MMENU
ELSEIF (UCASE$(An$)) = "Y" THEN
END IF
CALL ABOX
LOCATE 3, 3
PRINT "CALCIUM CHANNEL BLOCKERS = This group of drugs slow down the calcium "
LOCATE 4, 5
PRINT "movement through cell membranes, dilate blood vessels and reduce the"
LOCATE 5, 5
PRINT "hearts work load."
LOCATE 7, 3
PRINT "CHOLINERGICS = A drug that produces the effect of acetylcholine."
LOCATE 9, 3
PRINT "DIURETIC = A drug that increases urine secretion thus ridding the body of"
LOCATE 10, 5
PRINT "excess fluid."
LOCATE 12, 3
PRINT "DECONGESTANTS = Drugs that reduce swelling of the mucous membranes that"
LOCATE 13, 5
PRINT "line the nose by constricting the blood vessels."
LOCATE 15, 3
PRINT "EMETIC = A drug that promotes vomiting."
LOCATE 17, 3
PRINT "EXPECTORANTS = A drug that stimulates the flow of saliva and promotes"
LOCATE 18, 5
PRINT "coughing to eliminate phlegm from the respiratory tract."
LOCATE 20, 3
PRINT "HEMATINICS = A drug that increases the amount of hemoglobin in the blood"
LOCATE 21, 5
PRINT "stream."
LOCATE 25, 2
INPUT " Continue (Y/N) "; An$
IF (UCASE$(An$)) = "N" THEN
GOTO MMENU
ELSEIF (UCASE$(An$)) = "Y" THEN
END IF
CALL ABOX
LOCATE 3, 3
PRINT "IMMUNOSUPPRESIVES = Drugs that prevent or reduce the bodys normal reaction"
LOCATE 4, 5
PRINT "to invasion by disease or by foreign tissues."
LOCATE 6, 3
PRINT "MIOTICS = A agent that causes the eyes to contract."
LOCATE 8, 3
PRINT "MYDRIATICS = A drug that causes the eyes to dilate."
LOCATE 10, 3
PRINT "NITRITATES =The salt of nitrous acid. These drugs dilate the blood vessels,"
LOCATE 11, 5
PRINT "reduce blood pressure and depresses motor centers of the spinal cord."
LOCATE 13, 3
PRINT "OXYTOCICS = Drugs that stimulate uterine contractions. "
LOCATE 15, 3
PRINT "PSYCHOTROPIC = A drug used to treat emotional and mental disorders."
LOCATE 17, 3
PRINT "PHENOTHIAZINES = A compound used in tranquilzers. "
LOCATE 19, 3
PRINT "SALICYLATES = A drug that is used to reduce pain or fever."
LOCATE 21, 3
PRINT "SCABICIDES = A drug that is caustic to the itch mites (arachnid)."
LOCATE 25, 2
INPUT " Continue (Y/N) "; An$
IF (UCASE$(An$)) = "N" THEN
GOTO MMENU
ELSEIF (UCASE$(An$)) = "Y" THEN
END IF
CALL ABOX
LOCATE 3, 3
PRINT "SEDATIVE = Drug that produces a calming, relaxing or soothing effect on "
LOCATE 4, 5
PRINT "central nervous system. It can also produce sleep. "
LOCATE 6, 3
PRINT "TRANQUILIZERS = A drug that acts to reduce mental tension and anxiety"
LOCATE 7, 5
PRINT "without interfering with normal mental activity."
LOCATE 9, 3
PRINT "VASODILATOR = Drugs that causes relaxion of the blood vessels, thus "
LOCATE 10, 5
PRINT "thus increasing their size. Used to prevent and treat angina and are"
LOCATE 11, 5
PRINT "also useful for treating heart failure and certain circulatory"
LOCATE 12, 5
PRINT "disorders. "
LOCATE 18, 35
PRINT "The End"
DELAY 10
GOTO MMENU
END SUB
SUB PHONE
CLS
SCREEN 9
DRAW "BM 30, 18"
DRAW "C4 D290 R570 F5 L570 H5 U290 R570 D290 F5 U290 H5"
PAINT STEP(-1, -1), 2, 4
LOCATE 2, 22
PRINT "NATIONAL MEDICAL HOTLINE PHONE NUMBERS"
LOCATE 5, 7
PRINT "AIDS 800-462-1884 AIDS 800-342-AIDS"
LOCATE 6, 7
PRINT "ACNE 800-235-ACNE ALCOHOL 800-ALCOHOL"
LOCATE 7, 7
PRINT "ALZHEIMERS 800-621-379 ANOREXIA (201)836-1800"
LOCATE 8, 7
PRINT "BLINDNESS 800-424-8666 BULIMIA (201)838-1800"
LOCATE 9, 7
PRINT "CANCER 800-4 CANCER CHILD ABUSE 800-442-4553"
LOCATE 10, 7
PRINT "CYSTIC FIBROSIS 800-FIGHT-CF DIABETES 800-223-1138"
LOCATE 11, 7
PRINT "DIVING ACC (919)684-8111 DRUG ABUSE 800-662-HELP"
LOCATE 12, 7
PRINT "EXPERIMENTAL DRUGS 800-822-7422 HEARING HDCP 800-442-8574"
LOCATE 13, 7
PRINT "HEART 800-241-6993 HEMOPHILIA (212)219-8180"
LOCATE 14, 7
PRINT "KIDNEY 800-638-8299 LUPUS 800-558-121"
LOCATE 15, 7
PRINT "MEDICARE 800-462-9306 MEDIC ALERT 800-344-3226"
LOCATE 16, 7
PRINT "MISSING CHILDREN 800-843-5681 PARKINSONS 800-327-4545"
LOCATE 17, 7
PRINT "PESTICIDES 800-858-7378 RESPIRATORY 800-222-LUNG"
LOCATE 18, 7
PRINT "ORGAN DONATION 800-528-2871 SEXUAL ADDICATION 800-622-949"
LOCATE 19, 7
PRINT "SNAKE ANTIVENIN 800-522-4611 SPINAL BIFIDA 800-621-3141"
LOCATE 20, 7
PRINT "SURGERY 800-638-6833"
DELAY 15
GOTO MMENU
END SUB
SUB SUFF
SMENU:
CLS
SCREEN 9
DRAW "BM 35, 45"
DRAW "C2 D220 R560 F5 L560 H5 U220 R180 D40 R190 U40 L190 R380 D220 F5 U220 H5"
PAINT STEP(-1, -1), 4, 2
LOCATE 5, 28
PRINT " Suffixes and prefixes "
LOCATE 6, 36
PRINT " Menu "
LOCATE 9, 8
PRINT " 1 = A - BRADY "
LOCATE 11, 20
PRINT " 2 = BURS/O - DENDR/O "
LOCATE 13, 32
PRINT " 3 = -DESIS - -GLOBIN "
LOCATE 15, 48
PRINT " 4 = -GOGUE - -OMA "
LOCATE 17, 56
PRINT " 5 = PHIL/O - SUB- "
LOCATE 17, 8
PRINT " 6 = QUIT TO MAIN MENU "
LOCATE 24, 30
INPUT " Your request is"; AB
SELECT CASE (AB)
CASE 6
GOTO MMENU
CASE 7 TO 1000
SCREEN 1
LOCATE 10, 8
PRINT " YOU ENTERED A WRONG NUMBER!"
DELAY 2
GOTO SMENU
CASE 1
CLS
SCREEN 9
DRAW "BM 35, 16"
DRAW "C2 D290 R570 F5 L570 H5 U290 R570 D290 F5 U290 H5"
PAINT STEP(-1, -1), 4, 2
LOCATE 4, 8
PRINT "A- = away from ADIP / O = Fat"
LOCATE 6, 8
PRINT "-ABLE = capable of -AMEMIA = Blood "
LOCATE 8, 8
PRINT "ABRAD/O = rub or scrape off AL- = pertaining to"
LOCATE 10, 8
PRINT "AC- = toward ALGI- = suffering"
LOCATE 12, 8
PRINT "-AC = pertaining to AMERT/O = out of proportion"
LOCATE 14, 8
PRINT "ACR/O = extremiities, top, point AP- =toward, to"
LOCATE 16, 8
PRINT "AD- = toward, to APO - from, detacted"
LOCATE 18, 8
PRINT "-AGO = Attack ANGI/O = Blood or lymph vessels."
LOCATE 20, 8
PRINT "ARTHR/O = Joint BRADY = Slow"
DELAY 15
GOTO SMENU
CASE 2
CLS
SCREEN 9
DRAW "BM 35, 16"
DRAW "C2 D290 R570 F5 L570 H5 U290 R570 D290 F5 U290 H5"
PAINT STEP(-1, -1), 4, 2
LOCATE 4, 8
PRINT "BURS/O = Sack or fluid near a joint BRACHY- short"
LOCATE 6, 8
PRINT "BIO- = pertaining to life BUCC = Inside the cheek."
LOCATE 8, 8
PRINT "CARDI/O = heart CERA- = wax"
LOCATE 10, 8
PRINT "-CENTESIS = surgical puncture to remove fluid CARCIN/O = Cancerious"
LOCATE 12, 8
PRINT "-CRIT = separate CRY/O = cold"
LOCATE 14, 8
PRINT "CARDI/O = Heart CYAN/O = blue"
LOCATE 16, 8
PRINT "-CRASIA = mixture or blending CORT- = covering"
LOCATE 18, 8
PRINT "-CYYIC = pertaining to a cell -CYTOSIS = condition of cells"
LOCATE 20, 8
PRINT "DE- = from, not, lack of DENDR/O = resembling a tree"
DELAY 15
GOTO SMENU
CASE 3
CLS
SCREEN 9
DRAW "BM 35, 16"
DRAW "C2 D290 R570 F5 L570 H5 U290 R570 D290 F5 U290 H5"
PAINT STEP(-1, -1), 4, 2
LOCATE 4, 8
PRINT "-DESIS = bind, tie together DIA- = through, between"
LOCATE 6, 8
PRINT "DI- = double, apart from, two DYS- = difficult, painfull"
LOCATE 8, 8
PRINT "E- = out of, from -ECTOMY = surgical removal"
LOCATE 10, 8
PRINT "EM- = in EN- = in, into, within"
LOCATE 12, 8
PRINT "EOSIN / O = red, rosey ESTR/O = female"
LOCATE 14, 8
PRINT "EXTRA- = on the outside -FIC = making, producing"
LOCATE 16, 8
PRINT "FISS/O = crack, split FOLL/I = bag, sac"
LOCATE 18, 8
PRINT "-FUGE = to drive away -FUSION = pour"
LOCATE 20, 8
PRINT "-GENIC = producing, forming -GLOBIN = protein "
DELAY 15
GOTO SMENU
CASE 4
CLS
SCREEN 9
DRAW "BM 35, 16"
DRAW "C2 D290 R570 F5 L570 H5 U290 R570 D290 F5 U290 H5"
PAINT STEP(-1, -1), 4, 2
LOCATE 4, 8
PRINT "-GOGUE = make flow GON/E = seed"
LOCATE 6, 8
PRINT "HEM- = relating to blood HEMI- = half"
LOCATE 8, 8
PRINT "-IAC = pertaining to -IASIS = condition"
LOCATE 10, 8
PRINT "-IFIC = making, producing -IGO = attack"
LOCATE 12, 8
PRINT "-ILE = capible of(being) INFRA- = beneath, below"
LOCATE 14, 8
PRINT "-KINSIS = motion LUMIN/O = light"
LOCATE 16, 8
PRINT "MAL- = bad, poor NECR/O = die"
LOCATE 18, 8
PRINT "OB- = against -OMA = tumor"
LOCATE 20, 8
PRINT "PHIL/O = to like to love, attraqction PLIC/o = fold or ridge"
DELAY 15
GOTO SMENU
CASE 5
CLS
SCREEN 9
DRAW "BM 35, 20"
DRAW "C2 D290 R570 F5 L570 H5 U290 R570 D290 F5 U290 H5"
PAINT STEP(-1, -1), 4, 2
LOCATE 6, 8
PRINT "PY/O = pus RE- = back, again"
LOCATE 8, 8
PRINT "-RAPHY = suturing, stitching SANGU/O = blood"
LOCATE 10, 8
PRINT "SEPS/O = infection SUB- = under, less ,below"
LOCATE 14, 35
PRINT "The End"
DELAY 15
END SELECT
GOTO SMENU
END SUB
SUB THERCAT
DMENU:
CLS
SCREEN 9
COLOR 15
DRAW "BM 35, 45"
DRAW "C3 D220 R560 F5 L560 H5 U220 R180 D40 R190 U40 L190 R380 D220 F5 U220 H5"
PAINT STEP(-1, -1), 11, 3
LOCATE 5, 26
PRINT " Medication Classifications"
LOCATE 6, 36
PRINT " Menu "
LOCATE 9, 12
PRINT "(1) = A'S (8) = NVS - PSP"
LOCATE 10, 12
PRINT "(2) = B - CIS (9) = PTB - RQ"
LOCATE 11, 12
PRINT "(3) = CLD - DR (10) = R&R - SUI"
LOCATE 12, 12
PRINT "(4) = DSD - FU (11) = SV - TW"
LOCATE 13, 12
PRINT "(5) = G - IC (12) = U - WBC"
LOCATE 14, 12
PRINT "(6) = ICP - LV (13) = WBC - Z"
LOCATE 15, 12
PRINT "(7) = m - NVA (14) = Quit to main"
LOCATE 21, 30
INPUT " Your request is"; AM
SELECT CASE (AM)
CASE 15 TO 1000
CLS
SCREEN 1
LOCATE 10, 8
PRINT " YOU ENTERED A WRONG NUMBER!"
DELAY 2
GOTO DMENU
CASE 14
GOTO MMENU
CASE 1
CALL MBOX
LOCATE 4, 5
PRINT "ACETAMINOPHEN, ANACIN-3, TYLENOL----NONNARCOTIC, ANALGESIC, ANTIPYRETIC"
LOCATE 5, 5
PRINT "ACTIFED C, PSEUDOPHRINE----DECONGESTANT (SYMPATHOMETICS)"
LOCATE 6, 5
PRINT "ADAPIN, DOXEPIN, SINEQUAN----ANTIDEPRESSANT"
LOCATE 7, 5
PRINT "AFRIN, OXYMETAZOLINE HYDROCLORIDE--DECONGESTANT, VASOCONSTRICTOR"
LOCATE 8, 5
PRINT "ALDACTONE, SPIRONOLACTONE----POTASSIUM SPARING DIURETIC"
LOCATE 9, 5
PRINT "ALUPENT, METAPROTERENOL, METAPREL, ALZAPAM----BRONCHODILATOR"
LOCATE 10, 5
PRINT "AMNOPHYLIONE, AMINOPENICILIN----PENCILLIN ANTIBIOTIC"
LOCATE 11, 5
PRINT "AMOXICILLIN, AMOXIL----PENICILLIN ANTIBIOTIC"
LOCATE 12, 5
PRINT "AMPHOJEL, ALUMINUM HYDROXIDE----ANTIACID, ADSORBENT"
LOCATE 13, 5
PRINT "AMPICILLIN, AMCILL, AMPILLEAN, POLYCILLIN----PENICILLIN ANTIBIOTIC"
LOCATE 14, 5
PRINT "APRESOLINE, HYDRALAZINE HYDROCHLORIDE----ANTIHYPERTENSIVE"
LOCATE 15, 5
PRINT "ARTIFICIAL TEARS/ADAPETTES, LIQUIFILM TEARS-----DEMULCENT"
LOCATE 16, 5
PRINT "ASPIRIN, ASA, ECOTRIN----ANALGESIC, ANTIPYRETIC, ANTI-INFLAMMATORY"
LOCATE 17, 5
PRINT "ATARAX, HYDROXYZINE HYDROCHLORIDE----ANTIANXIETY,ANTIMETIC,ANTIPRURITIC"
LOCATE 18, 5
PRINT "ATIVAN, LORAZEPAN----ANTIANXIETY, SEDATIVE, HYPNOTIC"
LOCATE 19, 5
PRINT "ATROPINE----ANTIARRHYTHMIC, CHOLINERGIC BLOCKER"
LOCATE 20, 5
PRINT "AUGEMENTIN, AMOXICILLIN, POTASSIUM CLAVULANATE----PENICILLIN"
LOCATE 21, 5
PRINT "AZLOCILLIN, AZIN----PENICILLIN ANTIBIOTIC"
LOCATE 22, 5
PRINT "AZATHIOPRINE, IMURAN---- IMMUNSUPPRESSIVE"
DELAY 10
GOTO DMENU
CASE 2
CALL MBOX
LOCATE 4, 5
PRINT "BACTRIM, SEPTRA, CO-TRIMOXAZOLE+TRIMETHOPRIMSOL----ANTIBIOTIC"
LOCATE 5, 5
PRINT "BACTROBAN, MUPIROCIN----TOPICAL ANTIBIOTIC"
LOCATE 6, 5
PRINT "BECLOVENT, BECLOMETHASONE, VANCERIL----GLUCORTICOID"
LOCATE 7, 5
PRINT "BENADRYL, DEPHENHYDRAMINE----ANTIHISTAMINE"
LOCATE 8, 5
PRINT "BENZOCAINE, ORA-JEL, AMERICAINE----ANESTHETIC"
LOCATE 9, 5
PRINT "BETADINE, POVIDONE-IODINE----GERMICIDE"
LOCATE 10, 5
PRINT "BETAOPTIC, BETAXOLOL HYDROCHLORIDE----ANTIGLAUCOMA AGENT"
LOCATE 11, 5
PRINT "BISACODYL, DULCOLAX----STIMULANT LAXATIVE"
LOCATE 12, 5
PRINT "BLEOMYCIN SULFATE, BLENOXANE----ANTIBIOTIC, ANTINEOPLASTIC AGENT"
LOCATE 13, 5
PRINT "BRETHINE, TERBUTALINE, BREATHAIRE----ADRENERGIC BRONCHODILATOR"
LOCATE 14, 5
PRINT "BRETYLIUM, BRETYLATE----ANTIARRHYTHMIC"
LOCATE 15, 5
PRINT "BUMEX, BUMETANIDE----LOOP DIURETIC"
LOCATE 16, 5
PRINT "BUPRENEX, BUPRENORPHINE----NARCOTIC ANALGESIC"
LOCATE 17, 5
PRINT "BUSPAR, BUSPIRONE----ANTIANXIETY AGENT"
LOCATE 18, 5
PRINT "BUTALAN, BUTABARBITAL----SEDATIVE, HYPNOTIC"
LOCATE 19, 5
PRINT "CALAN, ISOPTIN----ANTIANGINAL, ANTIHYPERTENSIVE, ANTIARRHYTHMIC"
LOCATE 20, 5
PRINT "CALCIUM POLYCARBOPHIL, FIBERCON----BULK LAXATIVE, ANTIDIARRHEAL"
LOCATE 21, 5
PRINT "CALCIUM CARBONATE, TUMS E/X, OS-CAL, ALKA-Z----ANTIACID"
LOCATE 22, 5
PRINT "CAPOTEN, CAPTOPRIL----ANTIHYPERTENSIVE"
LOCATE 23, 5
PRINT "CARAFATE, SUCRAFATE----ANTIULCER AGENT"
DELAY 10
GOTO DMENU
CASE 3
CALL MBOX
LOCATE 4, 5
PRINT "CARDIZEM, DILTIAZEM HYDROCHLORIDE----ANTIANGINAL"
LOCATE 5, 5
PRINT "CASTOR OIL, ALPHAMUL, PURGE----STIMULANT LAXATIVE"
LOCATE 6, 5
PRINT "CATAPRESS, CLONIDINE HYDROCHLORIDE----ANTIHYPERTENSIVE"
LOCATE 7, 5
PRINT "CECLOR, CEFACTOR----ANTIBIOTIC"
LOCATE 8, 5
PRINT "CEFOBID, CEFOPERAZONE SODIUM----ANTIBIOTIC"
LOCATE 9, 5
PRINT "CEFORANIDE, PRECEF----CEPHALOSPORIN ANTIBIOTIC"
LOCATE 10, 5
PRINT "CEFOTAN, CEFOTETAN----CEPHALOSPORIN ANTIBIOTIC"
LOCATE 11, 5
PRINT "CEFTAZIDINE, FORTAZ, TAZICEF, TAZIDINE----CEPHALOSPORIN ANTIBIOTIC"
LOCATE 12, 5
PRINT "CEFUROXINE, ZINACEF----CEPHALOSPORIN ANTIBIOTIC"
LOCATE 13, 5
PRINT "CEPHALEXIN, KEFLEX, CEPOREX----CEPHALOSPORIN ANTIBIOTIC"
LOCATE 14, 5
PRINT "CERUMENEX----CREMENOLYTIC"
LOCATE 15, 5
PRINT "CHLOR-TRIETION, CHLORPHENIRAMINE, TELDRIN----ANTIHISTIME"
LOCATE 16, 5
PRINT "CHLORONASE, CHLORPROPAMIDE, DIABINASE----ORAL ANTIDIABETIC AGENT"
LOCATE 17, 5
PRINT "CIMETIDINE, TAGAMET----H2-RECEPTOR ANTAGONIST"
LOCATE 18, 5
PRINT "CIPRO, CIPROFLOXACIN----ANTIBIOTIC"
LOCATE 19, 5
PRINT "CLINORIL, SULINDAC----ANALGESIC, ANTIPYRETIC, ANTI-INFLAMMATORY"
LOCATE 20, 5
PRINT "CLODERM, CLOCORTOLONE PIVALATE----ANTI-INFLAMMATORY"
LOCATE 21, 5
PRINT "COACTIN, AMDINOCILLIN----PENICILLIN ANTIBIOTIC"
LOCATE 22, 5
PRINT "CODEINE----ANTITUSSIVE, NARCOTIC ANALGESIC"
LOCATE 23, 5
PRINT "COGENTIN, BENZTROPINE----ANTIDYSKINETIC"
DELAY 10
GOTO DMENU
CASE 4
CALL MBOX
LOCATE 4, 5
PRINT "COLASE, DOCUSATE SODIUM, DIOCTO, REGUTOL----EMOLLIENT LAXATIVE"
LOCATE 5, 5
PRINT "COMPAZINE, PROCHLORPERAZINE, STEMETIL----ANTIEMETIC"
LOCATE 6, 5
PRINT "CORDRAIN, FLURANDRENOLIDE----ADRENAL CORTICOSTOID, ANTI-INFLAMMATORY"
LOCATE 7, 5
PRINT "CORRECTOL, PHENOLPHTHALEN, EXLAX,FEEN-A-MENT----STIMULANT LAXATIVE"
LOCATE 8, 5
PRINT "CORTISONE----GLUCOCORTICOID"
LOCATE 9, 5
PRINT "CRYSTODIGIN, PURODIGIN, DIGITOXIN----CARDIOTONIC, DIGITALIS PREPARATION"
LOCATE 10, 5
PRINT "DALMANE, FLURAZEPAM, SOMNOL----SEDATIVE, HYPNOTIC-(CONTROLLED SUBSTANCE)"
LOCATE 11, 5
PRINT "DARVOCET N-100,PROPOXYPHENE NAPSYLATE----ANALGESIC,(CONTROLLED SUBSTANCE)"
LOCATE 12, 5
PRINT "DARVON,PROPOXYPHENE HYDROCHLORIDE----ANALGESIC, (CONTROLLED SUBSTANCE)"
LOCATE 13, 5
PRINT "DEBRISAN, DEXTRANONER----DEBRIDING AGENT, SYNTHETIC POLYSACCHARIDE"
LOCATE 14, 5
PRINT "DECADRON, DEXAMETHASONE---(SYSTEMIC), ANTI-INFLAMMATORY, IMMUNOSUPPRESSANT"
LOCATE 15, 5
PRINT "DELTA CORTEF, PREDNISOLONE----GLUCOCORTICOID"
LOCATE 16, 5
PRINT "DELTASONE----ADRENAL CORTICOSTEROID"
LOCATE 17, 5
PRINT "DEMEROL, MEPERDINE, PETHADOL----NARCOTIC ANALGESIC"
LOCATE 18, 5
PRINT "DESYREL, TRAZODONE----ANTIDEPRESSANT"
LOCATE 19, 5
PRINT "DEXADRON, DEXASONE----ANTI-INFLAMMATORY, IMMUNOSUPPRESSANT"
LOCATE 20, 5
PRINT "DIABINESE, GLUCAMIDE----ANTI-DIBETIC, ANTI-DURETIC"
LOCATE 21, 5
PRINT "DIAMOX, AKSOL----ANTI-CONVULSANT, ANTI-GLAUCOMA AGENT"
LOCATE 22, 5
PRINT "DIAZEPAM, VALIUM, VALRESEASE----ANTICONVULSANT, ANTI-ANXIETY AGENT"
LOCATE 23, 5
PRINT "DIGEL, MALLOX, RIOPAN----ANTIACID"
DELAY 10
GOTO DMENU
CASE 5
CALL MBOX
LOCATE 4, 5
PRINT "DILATIN, PHENYTOIN SODIUM----ANTI-CONVULSANT"
LOCATE 5, 5
PRINT "DIMENHYDRINATE, DRAMAMINE----ANTI-HYSTIMINE, ANTIEMETIC, ANTI-VERTIGO"
LOCATE 6, 5
PRINT "DITROPAN, OXYBUTININ CHLORIDE----ANTISPASMODIC"
LOCATE 7, 5
PRINT "DIURIL, DIACHLOR----DIURETIC"
LOCATE 8, 5
PRINT "DOANSPILLS, MAGNESIUM SALICYLATE----ANALGESIC, ANTIPYRETIC,"
LOCATE 9, 5
PRINT "DOLOBID----ANTIPYRETIC, ANALGESIC, ANTI-INFLAMMATORY"
LOCATE 10, 5
PRINT "DOLOPHINE, METHADONE----OPIOID ANALGESIC, NARCOTIC DETOXICANT"
LOCATE 11, 5
PRINT "ELASE, FIBROINOIYSIN DEOXYRIBONUCLEASE----TOPICAL DEBRIDING AGENT"
LOCATE 12, 5
PRINT "ELAVIL, AMITRIPTYLINE HYDROCLORIDE, AMITRIL----ANTIDEPRESSANT"
LOCATE 13, 5
PRINT "EDROPHONIUM CHLORIDE, ENLON----CHOLINEGIC AGONIST, DIAGNOSTIC AGENT"
LOCATE 14, 5
PRINT "ENKAID, ENCAINIDE HYDROCHLORIDE----ANTIARRHYTHMIC"
LOCATE 15, 5
PRINT "ENTEX, ENTEX L.A.----DECONGESTANT, EXPECTORANT"
LOCATE 16, 5
PRINT "EPINEPHRINE, DOPAMINE, ALBUTEROL----ADRENERGIC, BRONCIDILATOR"
LOCATE 17, 5
PRINT "EQUANIL, MEPROBAMATE, MILTOWN----ANTIANXIETY AGENT"
LOCATE 18, 5
PRINT "ERGOCALCIFEROL, VITAMIN D----ANTIPYPOCALCEMIC"
LOCATE 19, 5
PRINT "ERYTHOMYCIN, E.E.S., E-MYCIN, ILOSONE----ANTIBIOTIC"
LOCATE 20, 5
PRINT "ESIDRIX, HYDRODIURIL, HYDROCHLOROTHIAZE----THIAZIDE DIUURETIC"
LOCATE 21, 5
PRINT "ESTROGENS----HORMONE REPLACEMENT"
LOCATE 22, 5
PRINT "FELDENE, PIROXICAM----NONARCOTIC, ANTIPYRETIC, ANTI-INFLAMMATORY"
LOCATE 23, 5
PRINT "FERROUS SULFATE, SLOW-FE, FEOSOL, MOL-IRON----HEMATINIC"
DELAY 10
GOTO DMENU
CASE 6
CALL MBOX
LOCATE 4, 5
PRINT "FLEXERIL, CYCLOBENZAPRINE----TRICYCIC ANTIDEPRESSANT, MUSCLE RELAXANT"
LOCATE 5, 5
PRINT "FLOXIN, OFLOXACIN----SYNTHETIC BROAD-SPECTRUM ANTIBACTERIAL AGENT"
LOCATE 6, 5
PRINT "FLUOXETINE, PROZAC----ANTIDEPRESSANT"
LOCATE 7, 5
PRINT "FOLIC ACID, VITAMIN B9----VITAMIN SUPPLEMENT"
LOCATE 8, 5
PRINT "FURADANTIN, AFTATE, NP-27, TOLNAFATE----ANTIBACTERIAL, ANTIFUNGAL"
LOCATE 9, 5
PRINT "FUROSEMIDE, LASIX, NOVAMIDE----LOOP DIURETIC, ANTIHYPERTENSIVE"
LOCATE 10, 5
PRINT "FUROXONE, FURAZOLIDONE----ANTIBACTERIAL, ANTIPROTOZOAL AGENT"
LOCATE 11, 5
PRINT "GANTRISIN, SULFISOXAZOLE----ANTIBIOTIC"
LOCATE 12, 5
PRINT "GARAMYCIN, GENTAMICIN SULFATE----ANTIOBIOTIC, AMINOGLYCOSIDE"
LOCATE 13, 5
PRINT "GLUCOTROL, GLIPSIDE----ORAL ANTIDIABETIC AGENT"
LOCATE 14, 5
PRINT "GOLD SALTS, AURANOFIN----AURTHIOGLUCOSE"
LOCATE 15, 5
PRINT "GYNE-LOTRIMIN, LOTRIMIN, MYCELEX----TOPICAL ANTIFUNGAL"
LOCATE 16, 5
PRINT "HALCION, HALOPERIDOL----ANTIPSYCHOTIC"
LOCATE 17, 5
PRINT "HEPARIN, LIQUAEMIN SODIUM----ANTICOAGULANT"
LOCATE 18, 5
PRINT "HYDRALAZINE, APRESOLINE, ROLAZINE----ANTIHYPERTENSIVE"
LOCATE 19, 5
PRINT "HYDROFLUMETHIAZINE, DIUCARDIN----ANTIHYPERTENSIVE"
LOCATE 20, 5
PRINT "HYOSCYAMINE, CYTOPAZ----ANTICHOLINERGIC"
LOCATE 21, 5
PRINT "IBUPROFEN, MOTRIN, DATRIL----NONSTEROIDAL ANTI-INFLAMMATORY"
LOCATE 22, 5
PRINT "ILLSONE, ERYTHROMYCIN ESTOLATE----ANTIBIOTIC"
LOCATE 23, 5
PRINT "IMFERON, IRON DEXTRAN----HEMATINIC"
DELAY 10
GOTO DMENU
CASE 7
CALL MBOX
LOCATE 4, 5
PRINT "IMIPRAMINE HYDROCHLORIDE, TOFRANIL----ANTIDEPRESSANT"
LOCATE 5, 5
PRINT "IMODIUM, LOPERAMIDE----ANTIDIARRHEAL"
LOCATE 6, 5
PRINT "INDERIAL/PROPRANOLOL----BETA-BLOCKER"
LOCATE 7, 5
PRINT "INDOMETHACIN/INDOCID,INDOCIN----NONSTEROIDAL ANTI-INFLAMMATORY"
LOCATE 8, 5
PRINT "INTAL, NASALCOM, CROMOLYN SODIUM----MAST CELL STABILIZER, ANTICISTHMATIC"
LOCATE 9, 5
PRINT "INTERFERON, ROFERON A----ANTINEOPLASTIC"
LOCATE 10, 5
PRINT "IPECAC SYRUP----EMETIC"
LOCATE 11, 5
PRINT "ISMELIN, GUANETHIDINE----ANTIHYPERTENSIVE"
LOCATE 12, 5
PRINT "IOPHEN, ORGANIDIN, IODINATED GLYCEROL----EXPECTORANT"
LOCATE 13, 5
PRINT "IRON DEXTRON, IMFERGAN, FERONIM----HEMATINIC "
LOCATE 14, 5
PRINT "ISOCARBOXAZID, MARPLAN----ANTIDEPRESSANT"
LOCATE 15, 5
PRINT "ISOPROTERENOL, ISUPREL, AERO-ISO-----ADRENERGIC, BRONCHODILATOR"
LOCATE 16, 5
PRINT "ISOSORBIDE DINITRATE/ISORDIL----ANTIANGINAL AGENT, VASODILATOR"
LOCATE 17, 5
PRINT "ISUPROL, AEROLONE, VAPO-ISO----BRONCHODILATOR, CARDIAC STIMULANT"
LOCATE 18, 5
PRINT "K-DUR, SLOW-K, K-LITE, POTASSIUM CHLORIDE----POTASSIUM SUPPLEMENT"
LOCATE 19, 5
PRINT "KAOPECTATE, KAOLIN+PECTIN MIXTURE----ANTIDIARREA"
LOCATE 20, 5
PRINT "KEFLIN, CEPHALOTHIN SODIUM, SEFFIN----ANTIBIOTIC"
LOCATE 21, 5
PRINT "KLONOPIN, CLONAZEPAM, RIVOTRIL----ANTICONVULSANT"
LOCATE 22, 5
PRINT "LIOTHYRONINE----THYROID HORMONE"
LOCATE 23, 5
PRINT "LANOXIN, DIGOXIN, LANOXICAPS----CARDIAC GLYCOSIDE"
DELAY 10
GOTO DMENU
CASE 8
CALL MBOX
LOCATE 4, 5
PRINT "LEVODOPA, DOPAR, LEVOPA----ANTIPARKINSONISM AGENT"
LOCATE 5, 5
PRINT "LEVOPHED, NOREPINEPHINE----ADRENERGIC (SYMPATHOMIMETIC)"
LOCATE 6, 5
PRINT "LIBRIUM, CHLORDIAZEPOXIDE----ANTIANXIETY AGENT (CONTROLLED SUBSTANCE)"
LOCATE 7, 5
PRINT "LIDOCAINE, XYLOCAINE----ANTIARRHYTHMIC"
LOCATE 8, 5
PRINT "LINDAINE, KWELL, SCABENE----SCABICIDE, CHLORINATED HYDROCARBON"
LOCATE 9, 5
PRINT "LIQUIFIRM, IDOXOURIDINE(IUD)----ANTIVIRAL AGENT"
LOCATE 10, 5
PRINT "LITHIUM, LITHANE, ESKALITH----ANTIMANIC AGENT"
LOCATE 11, 5
PRINT "LOMOTIL, DIPHENOXYLATE/ATROPINE SULFATE----ANTIDIARRHEAL"
LOCATE 12, 5
PRINT "LOPRESSOR, METOPROLOL----ANTIHYPERTENSIVE"
LOCATE 13, 5
PRINT "LORATAB, VICODIN, LORCET---NARCOTIC ANALGESIC (CONTROLLED SUBSTANCE)"
LOCATE 14, 5
PRINT "MACRODANTIN, NITROFURANTOIN, FURDANTIN----URINARY TRACT ANTISEPTIC"
LOCATE 15, 5
PRINT "MAGNESIUM SULFATE----ANTICONVULSANT"
LOCATE 16, 5
PRINT "MANNITOL, OSMITROL----DIURETIC"
LOCATE 17, 5
PRINT "MAXAIR, PIRBUTEROL ACETATE----BRONCHODILATOR"
LOCATE 18, 5
PRINT "MECLIZINE HYDROCLORIDE, ANTIVERT, ANTRIZINE----ANTIMETIC, ANTIVERTIGO"
LOCATE 19, 5
PRINT "MECOLOFENAMATE, MECLOMEN----ANALGESIC, ANTIPYRETIC, ANTI-INFLAMMATORY"
LOCATE 20, 5
PRINT "METHYLDOPA, ALDOMET, DOPAMET----ANTIHYPERTENSIVE"
LOCATE 21, 5
PRINT "METOCLOPRAMIDE, REGLAN, MAXERAN----ANTIMETIC"
LOCATE 22, 5
PRINT "MEVACOR, LOVASTATIN----CHOLESTEROL LOWERING AGENT"
LOCATE 23, 5
PRINT "MICATIN, MICONAZOLE NITRATE----ANTIFUNGAL"
DELAY 10
GOTO DMENU
CASE 9
CALL MBOX
LOCATE 4, 5
PRINT "MICRONASE, GLYDURIDE, DIABETA----ORAL ANTIDIABETIC AGENT"
LOCATE 5, 5
PRINT "MINIPRESS, PRAZOSIN----ANTIHYPERTENSIVE"
LOCATE 6, 5
PRINT "MINOCIN, MICNOCYCLINE HYDROCHLORIDE----TETRACYCLINE ANTIBIOTIC"
LOCATE 7, 5
PRINT "MINOXIDIL, LONITEN----ANTIHYPERTENSIVE, HAIR GROWTH STIMULANT"
LOCATE 8, 5
PRINT "MOBAN, MOLINDONE HYDROCHLORIDE----ANTIPSYCHOTIC"
LOCATE 9, 5
PRINT "MODANE, DANTHRON, DORBANE----LAXATIVE (STIMULANT)"
LOCATE 10, 5
PRINT "MONISTAT, MICONAZOLE----ANTIFUNGAL AGENT"
LOCATE 11, 5
PRINT "MORPHINE----NARCOTIC ANALGESIC (CONTROLLED SUBSTANCE)"
LOCATE 12, 5
PRINT "NAFCILLIN, NALPEN, UNIPEN----PENICILLIN ANTIBIOTIC"
LOCATE 13, 5
PRINT "NALFON, FENOPROFEN----NONSTEROIDAL ANTI-INFLAMMATORY"
LOCATE 14, 5
PRINT "NAPROSYN, NAPROXEN SODIUM, ANAPROX----NON-STEROIDAL ANTI-INFLAMMATORY"
LOCATE 15, 5
PRINT "NAVANE, THIOTHIXENE HYDROCHLORIDE----ANTIPSYCOTIC"
LOCATE 16, 5
PRINT "NEBUTAL, PENTOBARBITAL----SEDATIVE, HYPONTIC (CONTROLLED SUBSTANCE)"
LOCATE 17, 5
PRINT "NEOMYCIN, MYCIFRADIN SULFATE, NEOBIOTIC----AMINOGLYCOSIDE ANTIBIOTIC"
LOCATE 18, 5
PRINT "NIACIN, VITAMIN B3, NICOTIC ACID----ANTILIPEMIC, PERIPHERAL VASODILATOR"
LOCATE 19, 5
PRINT "NITROGLYCERIN, NITROBID, NITRO-DUR, NITROSTAT----ANTIANGINAL"
LOCATE 20, 5
PRINT "NITROPRESS, NITROPRUSSIDE----ANTIHYPERTENSIVE"
LOCATE 21, 5
PRINT "NOCTEC, CHLORAL HYDRATE----SEDATIVE HYPNOTIC"
LOCATE 22, 5
PRINT "NORFLOXACIN, NOROXIN----BROAD SPECTRUM ANTIBIOTIC"
LOCATE 23, 5
PRINT "NETROMYCIN, NETILMICINSULFATE----ANTIBIOTIC"
DELAY 10
GOTO DMENU
CASE 10
CALL MBOX
LOCATE 4, 5
PRINT "NORPACE, DISOPYRAMIDE PHOSPHATE----ANTIARRYTHMIC"
LOCATE 5, 5
PRINT "NORTEC, CLORAL HYDRATE----SEDATIVE, HYPONOTIC"
LOCATE 6, 5
PRINT "NUBAIN, NALBUPHINE----NARCOTIC ANALGESIC (CONTROLLED SUBSTANCE)"
LOCATE 7, 5
PRINT "NUPERCAINAL, DIDUCAINE----LOCAL ANESTHESTIC"
LOCATE 8, 5
PRINT "NYSTATIN, MYCOSTATIN, NILSTAT----ANTIFUNGAL"
LOCATE 9, 5
PRINT "ORA-JEL, BENZOCAINE----ANESTHETIC"
LOCATE 10, 5
PRINT "ORINASE, TOLOBUTAMIDE----ORAL ANTIDIABETIC AGENT"
LOCATE 11, 5
PRINT "ORUDIS, KETOPROFEN----NONSTEROIDAL ANTI-INFLAMMATORY AGENT"
LOCATE 12, 5
PRINT "OXAZEPAM, SERAX----ANTIANXIETY AGENT"
LOCATE 13, 5
PRINT "OXICONAZOLE, OXISTAT NITRATE----ANTIFUNGAL AGENT"
LOCATE 14, 5
PRINT "OXYMETAZDINE HYDROCHLORIDE, DRISTAN, SINEX----DECONGESTANT"
LOCATE 15, 5
PRINT "PAMELOR, NORTRIPTYLINE HYDROCLORIDE, AVENTYL----TRICYCLIC ANTIDEPRESSANT"
LOCATE 16, 5
PRINT "PARAGORIC OPIUM----ANTIDIARRHEA AGENT"
LOCATE 17, 5
PRINT "PAVABID, PAPAVERINE HYDROCHLORIDE, PAVACEN----VASODILATOR"
LOCATE 18, 5
PRINT "PEDIACARE, SUDAFED----DECONGESTANT"
LOCATE 19, 5
PRINT "PEN-V, PENICILLIN-V POTASSIUM----PENICILLIN ANTIBIOTIC"
LOCATE 20, 5
PRINT "PENICILLIN-G, BENZATHINE, POTASSIUM PROCAINE---PENICILLIN ANTIBIOTIC"
LOCATE 21, 5
PRINT "PENTOBARBITAL, LUMINAL----SEDATIVE, HYPONTIC, ANTICONVULSANT"
LOCATE 22, 5
PRINT "PEPCID, FAMOTIDINE----ANTIULSER AGENT"
LOCATE 23, 5
PRINT "PERCOCET, OXYCET, TYLOX----NARCOTIC ANALGESIC (CONTROLLED SUBSTANCE)"
DELAY 10
GOTO DMENU
CASE 11
CALL MBOX
LOCATE 4, 5
PRINT "PERCODAN, OXYCODONE----NARCOTIC ANALGESIC (CONTROLLED SUBSTANCE)"
LOCATE 5, 5
PRINT "PERICOLACE, DIOCTO, D.D.S., PERI-DOS, REGULASE, LAXATIVE, STOOL SOFTNER"
LOCATE 6, 5
PRINT "PERSANTINE, DIPYRIDAMOLE----VASODILATOR"
LOCATE 7, 5
PRINT "PHENEGAN, PROMETHAZINE HYDROCLORIDE----ANTIHISATIME, ANTIMETIC"
LOCATE 8, 5
PRINT "PHENYLBUTAZONE, BUTAZOLIDIN, AZOLID----ANTI-INFLAMMATORY AGENT"
LOCATE 9, 5
PRINT "PILOCARPINE, ISOPTOCARPINE----MIOTIC"
LOCATE 10, 5
PRINT "PIPERCILLIN----PENICILLIN ANTIBIOTIC"
LOCATE 11, 5
PRINT "POLYMICIN B SULFATE, AEROSPORIN----POLYMYCIN ANTIBIOTIC, POLYPEPTIDE"
LOCATE 12, 5
PRINT "PRIMIDONE, SERTAN, MYSOLINE----ANTICONVULSANT"
LOCATE 13, 5
PRINT "PROZINE ,SPARINE, PROMAZINE HYDROCHLORIDE-----ANTIPSYCHOTIC, ANTIEMETIC"
LOCATE 14, 5
PRINT "PROCAINAMIDE, PROCAN SR, PRONESTYL----ANTIARRYTHMIC"
LOCATE 15, 5
PRINT "PROCARDIA, NIFEDIPINE----ANTIANGINAL"
LOCATE 16, 5
PRINT "PROPINE----ANTIGLAUCOMA AGENT (OPHTHALMIC SOLUTION)"
LOCATE 17, 5
PRINT "PROVENTIL, VENTOLIN, ALBUTEROL SULFATE----BRONCHODILATOR"
LOCATE 18, 5
PRINT "PROVERA, MEDROXYPROGESTERONE ACETATE----PROGESTERONE, ANTINEOPLASTIC"
LOCATE 19, 5
PRINT "PSYLLIUM, METAMUCIL----BULK FORMING LAXATIVE"
LOCATE 20, 5
PRINT "PYRIDIUM, PHENAZOPYRINE HYDROCHLORIDE----URINARY ANALGESIC"
LOCATE 21, 5
PRINT "QUINALAN----ANTIARRHYTHMIC"
LOCATE 22, 5
PRINT "REGITINE, ROGITINE, PHENTOIAMINE----ANTIHYPERTENSIVE"
LOCATE 23, 5
PRINT "RESTROIL, TEMAZEPAM----SEDATIVE, HYPNOTIC"
DELAY 10
GOTO DMENU
CASE 12
CALL MBOX
LOCATE 4, 5
PRINT "RETIN A, VITAMIN A, PROVITAMIN A----ANTIACNE, ANTICANCER"
LOCATE 5, 5
PRINT "RITALIN, METHYLPHENIDATE HYDROCHLORIDE----CNS STIMULANT"
LOCATE 6, 5
PRINT "ROBITUSSIN, GUAILFENESIN----EXPECTORANT"
LOCATE 7, 5
PRINT "ROLAIDS----ANTIACID"
LOCATE 8, 5
PRINT "SECOBARBITAL, SERAL----SEDATIVE, HYPONOTIC"
LOCATE 9, 5
PRINT "SELDANE, TERFENADINE----ANTIHISATINE"
LOCATE 10, 5
PRINT "SENNA, SENOKOT, GENTAL NATURE, GENNA----STIMULANT LAXATIVE"
LOCATE 11, 5
PRINT "SER-AP-ES----ANTIHYPERTENSIVE COMBINATION DRUG"
LOCATE 12, 5
PRINT "SERENTAL, MESORIDAZEINE BESYLATE----ANTIPSYCOTIC"
LOCATE 13, 5
PRINT "SILVER SULFADIAZINE, SILVARDENE----TOPICAL ANTIBACTERAL"
LOCATE 14, 5
PRINT "SIMETHICONE, MYLICON, SILAIN, GAS X----ANTIFLATUANT"
LOCATE 15, 5
PRINT "SINEMENT, LEVODOPA-CARBIDOPA----ANTIPARKINISONISM AGENT"
LOCATE 16, 5
PRINT "SODIUM BICARBONATE, SODA MINT----ALKALIZER, ORAL ANTIACID"
LOCATE 17, 5
PRINT "SOMA, RELA, CARISOPRODOL----SKELETAL MUSCLE RELAXANT"
LOCATE 18, 5
PRINT "STREPTOKINASE, STREPTASE----THROMBOLIC ENZYME"
LOCATE 19, 5
PRINT "STREPTOMYCIN SULFATE----AMINOGLYCOSIDE ANTIBIOTIC"
LOCATE 20, 5
PRINT "SURFAK, DOCUSATE SODIUM, COLASE,D.D.S.----LAXATIVE (STOOL SOFTENER)"
LOCATE 21, 5
PRINT "SYMETREL, AMANTADINE----ANTIVIRAL, ANTIPARKINSON'S AGENT"
LOCATE 22, 5
PRINT "SYTHROID, LEVOTHYROXINE SODIUM, T4----THYROID HORMONE"
LOCATE 23, 5
PRINT "TALWIN, PETAZOCINE HYDROCLORIDE, FORTRAL----NARCOTIC ANALGESIC"
DELAY 10
GOTO DMENU
CASE 13
CALL MBOX
LOCATE 4, 5
PRINT "TAVIST, TAVIST 1, CLENASTINE FURNARATE----ANTIHISTIME"
LOCATE 5, 5
PRINT "TEARS+, TEARS NATURAL, TEARGEN, ARTIFICAL TEARS----DEMULCENT"
LOCATE 6, 5
PRINT "TETRACYCLINE, ACHROMYCIN----TETRACYCLINE ANTIBIOTIC"
LOCATE 7, 5
PRINT "THEOPHYLLINE, THEO-DUR----SPAMOLYTIC"
LOCATE 8, 5
PRINT "THIORDAZINE, MELLARIL----ANTIPSYCHOTIC"
LOCATE 9, 5
PRINT "TIMOPIC, TIMOLOL MALEATE----ANTIHYPERTENSIVE, ANTIGLACOMA"
LOCATE 10, 5
PRINT "TOLECTIN, TOLMENTIN SODIUM----NONARCOTIC ANALGESIC, ANTIPYRETIC"
LOCATE 11, 5
PRINT "TOLINASE, RONASE, TOLAMIDE, TOLAZAMIDE----ORAL ANTIDIABETIC AGENT"
LOCATE 12, 5
PRINT "TRANXENE, CLORAZPATE DIPOTASSIUM----ANTIANXIETY AGENT"
LOCATE 13, 5
PRINT "TRENDAL, PENTOXIFYLLINE----HEMORRORLOGIC"
LOCATE 14, 5
PRINT "TRIMTERENE, HCTZ----ANTI-HYPERTENSIVE"
LOCATE 15, 5
PRINT "TUSSI-ORGANIDIN----DECONGESTANT, EXPECTORANT"
LOCATE 16, 5
PRINT "TYLENOL#3, CODAP, TYPAP----NARCOTIC ANALGESIC (CONTROLLED SUBSTANCE)"
LOCATE 17, 5
PRINT "TYZINE, MURINE PLUS, VISINE----VASOCONSTRICTOR"
LOCATE 18, 5
PRINT "UROKINASE, ABBOKINASE----THROMBOLIC ENZYME"
LOCATE 19, 5
PRINT "VALOSEF, CEPHRADINE----CEPHALOSPORIN ANTIBIOTIC"
LOCATE 20, 5
PRINT "VALPRONIC ACID, DEPAKENE----ANTICONVULSANT"
LOCATE 21, 5
PRINT "VASOPRESSIN----ANTIDIURETIC HORMONE"
LOCATE 22, 5
PRINT "VASOTEC, ENALPRIL MALEATE----ANTIHYPERTENSIVE"
LOCATE 23, 5
PRINT "VIBRAMYCIN, DOXYCYCLINE, DOXY-200----TETRACYCLINE ANTIBIOTIC"
DELAY 10
GOTO DMENU
CASE 14
CALL MBOX
LOCATE 4, 5
PRINT "VIRAZOLE, RIBAVIRIN----ANTIVIRAL AGENT"
LOCATE 5, 5
PRINT "VISKEN, PINDOLOL----ANTIHYPERTENSIVE"
LOCATE 6, 5
PRINT "VITAMIN B6, PYRIDOXINE----VITAMIN"
LOCATE 7, 5
PRINT "VITAMIN B2, RIBOFLAVIN----VITAMIN"
LOCATE 8, 5
PRINT "VITAMIN B12, CYANOBALNMIN----VITAMIN"
LOCATE 9, 5
PRINT "VITAMIN K, MENADIOL SODIUM DIPHOSPHATE----VITAMIN"
LOCATE 10, 5
PRINT "VOLTRIN----ANTIARRTHRITIC, ANTI-INFLAMMATORY"
LOCATE 11, 5
PRINT "WARFARIN, COUMADIN----ANTI-COAGULANT"
LOCATE 12, 5
PRINT "WELLBUTIN, BUPROPION HYDROCHLORIDE----ANTIDEPRESSANT"
LOCATE 13, 5
PRINT "WYTENSIN, GUANABENZ ACETATE----ANTIHYPERTENSIVE"
LOCATE 14, 5
PRINT "XANAX, ALPRAZOLAM----ANTIANXIETY AGENT"
LOCATE 15, 5
PRINT "XERAC BP, BENZOYL PEROXIDE, OXY 5, OXY 10, CLEARSIL----ANTIACNE"
LOCATE 16, 5
PRINT "XYLOMETHAZOLINE, NEOSYNEPHINE, SINUTAB LA----DECONGESTANT"
LOCATE 17, 5
PRINT "ZANTAC, RANITIDINE----H2 RECEPTOR ANTAGONIST "
LOCATE 18, 5
PRINT "ZARONTIN, ETHOSUXIDE----ANTICONVULSANT"
LOCATE 19, 5
PRINT "ZEPHINAN, GERIMICAN, BENZALKONIUM CHLORIDE----ANTISEPTIC"
LOCATE 20, 5
PRINT "ZIDOVUDINE, AZT, RETROVIR----ANTIVIRAL AGENT"
LOCATE 21, 5
PRINT "ZINACEF, CEFUROXINE SODIUM----ANTIBIOTIC"
LOCATE 22, 5
PRINT "ZOVIRAX, ACYCLOVIR SODIUM----ANTIVIRAL AGENT"
LOCATE 23, 5
PRINT "ZYLOPRIM, ALLOPURINOL----ANTIGOUT AGENT"
DELAY 10
GOTO DMENU
END SELECT
END SUB